1000 INPUT"[147][204]AUFWERKSNUMMER DER 1541/1571    8[157][157][157]";A$:DN=VAL(A$):
1010 IFDN<8ORDN>30THEN1000
1020 PRINT"[147][196]IESES [208]ROGRAMM LOESCHT ALLE [196]ATEN AUF
1030 [153]"DER EINGELEGTEN STR$ISK, SODASS KEIN
1040 PRINT"EINZIGER MAGNETISCHER [210]ICHTUNGSWECHSEL
1050 [153]"VERBLEIBT. STR$IES IST WICHTIG BEIM
1060 PRINT"[194]ESCHREIBEN DER [196]ISK MIT EINEM 80-[211]PUR
1070 [153]"((null)LEN-) (null)AUFWERK UND ANSCHLIESSENDEM
1080 PRINT"[204]ESEN DER [196]ISK MIT EINEM 40-[211]PUR [204]AUF-
1090 [153]"WERK, WIE DIE 1541/1571. STR$IE (null)PURBREITE
1100 PRINT"DES 80-[212]RACK-[204]W IST NUR HALB SO GROSS
1110 [153]"WIE BEI 40 (null)RACKS, SODASS DER BREITERE
1120 PRINT"40-[212]RACK [203]OPF AUCH DIE FALSCHEN SEIT-
1130 [153]"LICH LIEGENDEN MAGNETISCHEN (null)ICHTUNGS-
1140 PRINT"WECHSEL LESEN WUERDE.
1150 [153]"PEEKEIDE (null)EITEN MUESSEN GETRENNT GELOESCHT
1160 PRINT"WERDEN.
1170 [159]15,DN,15,"U0>M0
1180 READA:IFA>=0THENPRINT#15,"M-W"CHR$(I)CHR$(4)CHR$(1)CHR$(A);
1190 IFA>=0THENPOKE49152+I,A:I=I+1:GOTO1180
1200 PRINT"<[212]ASTE>":POKE198,0:WAIT198,1:GETA$
1210 PRINT"[147][198]REEWARE VON
1220 [153]"(null)EAR (null)ETTER (null)UANTITY
1230 PRINT"[202]OCHEN [193]DLER
1240 [153]"LEFT$AELDESTR.11
1250 PRINT"[196]-74912 [203]IRCHARDT
1260 [153]"FUER
1270 PRINT"[210]OCKFORD-[198][196] [211]ERIE
1280 [153]"ATNLEX (null)(null)(null)
1290 PRINT"[193]MSELWEG 1
1300 [153]"STR$-85293 (null)EICHERTSHAUSEN
1310 PRINT"[199]EBEN [211]IE 'ZERSTOEREN' EIN, WENN [211]IE
1320 [153]"SICHER SIND, DASS ALLE STR$ATEN AUF DER
1330 PRINT"EINGELEGTEN [196]ISK GELOESCHT WERDEN KOEN- NEN
1340 [153]"!!STR$ELETES ALL STR$ATAS ON STR$ISK!!
1350 INPUTA$:IFA$<>"ZERSTOEREN"THENSTOP:GOTO1310
1360 PRINT#15,"M-E"CHR$(0)CHR$(4);
1370 CLOSE15:OPEN15,DN,15
1380 PRINT"[206]OCHMAL? (J/N)":WAIT198,1:GETA$:IFA$<>"J"ANDA$<>"N"THEN1380
1390 IFA$="J"THEN1310
1400 REM--------------------------------
1410 DATA173,0,28,9,8,141,0,28,165,34,208,4,169,18,133,34,169,41,133,6,169,128
1420 DATA133,0,165,0,48,252,169,1,133,6,169,128,133,0,165,0,48,252,169,79,141
1430 DATA255,4,173,0,28,41,252,141,0,28,120,169,255,141,3,28,173,12,28,41,31
1440 DATA9,192,141,12,28,169,0,141,1,28,162,170,160,255,136,208,253,202,208
1450 DATA250,173,12,28,9,224,141,12,28,169,0,141,3,28,136,208,253,174,0,28,232
1460 DATA138,41,3,133,75,173,0,28,41,252,5,75,73,8,141,0,28,162,48,136,208,253
1470 DATA202,208,250,206,255,4,16,175,169,41,133,34,173,0,28,41,247,141,0,28
1480 DATA96,-1